home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0020.ua < prev    next >
Text File  |  1996-10-30  |  401b  |  25 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0020.ua
  9. `*
  10. `* Tests OpenFile(mode = create|write) and DropObject()
  11. `* Should leave an empty file named "testfile" in the current dir.
  12.  
  13. #1 .H 2 0 0 0
  14. #2 .M "tc0020" 20 10 0 0
  15.  
  16. #10 .V "FileObject"
  17.  
  18. #20 >30 .a 10 21
  19. #21 .c 7 22
  20. #22 >23 .s "testfile"
  21. #23 .n 6
  22.  
  23. #30 .c 8 31
  24. #31 .v 10
  25.